home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / ilisp / ilfsf19.el.z / ilfsf19.el
Encoding:
Text File  |  1998-05-21  |  1.6 KB  |  70 lines
  1. ;;; -*- Mode: Emacs-Lisp -*-
  2.  
  3. ;;; ilfsf19.el --
  4.  
  5. ;;; This file is part of ILISP.
  6. ;;; Version: 5.8
  7. ;;;
  8. ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
  9. ;;;               1993, 1994 Ivan Vasquez
  10. ;;;               1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
  11. ;;;               1996 Marco Antoniotti and Rick Campbell
  12. ;;;
  13. ;;; Other authors' names for which this Copyright notice also holds
  14. ;;; may appear later in this file.
  15. ;;;
  16. ;;; Send mail to 'ilisp-request@naggum.no' to be included in the
  17. ;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
  18. ;;; mailing list were bugs and improvements are discussed.
  19. ;;;
  20. ;;; ILISP is freely redistributable under the terms found in the file
  21. ;;; COPYING.
  22.  
  23.  
  24. ;;;============================================================================
  25. ;;; Functions
  26.  
  27. (defun ilisp-get-input-ring ()
  28.   "Use instead of get-input-ring coming-input-ring or input-ring."
  29.   comint-input-ring)
  30.  
  31.  
  32. (defun ilisp-ring-insert (ring input)
  33.   (ring-insert ring input))
  34.  
  35.  
  36. (defun ilisp-temp-buffer-show-function-symbol ()
  37.   'temp-buffer-show-function)
  38.  
  39.  
  40. (defun set-ilisp-temp-buffer-show-function (val)
  41.   (setq temp-buffer-show-function val))
  42.  
  43.  
  44. (defun ilisp-temp-buffer-show-function ()
  45.   temp-buffer-show-function)
  46.  
  47.  
  48. (defun ilisp-input-ring-index ()
  49.   comint-input-ring-index)
  50.  
  51.  
  52. (defun set-ilisp-input-ring-index (n)
  53.   (setq comint-input-ring-index n))
  54.  
  55.  
  56. (defun ilisp-input-ring-size ()
  57.   comint-input-ring-size)
  58.  
  59.  
  60. (defun set-ilisp-input-ring-size (n)
  61.   (setq comint-input-ring-size n))
  62.  
  63.  
  64. ;;;============================================================================
  65. ;;; Epilogue
  66.  
  67. (provide 'compat-fsf-19)
  68.  
  69. ;;; end of file -- fsf19.el --
  70.